: 
pares mam ccccceccccce «OL G00 
mate a MMe cccccccccccc LLL DDDDDDDDDDDD RRRRRRRRRRRR 
fe lata ccccccccccec «LLL DODDDDDODODD RRRRRRRRRRRR 000 
MMMMMM =O MMMMMM «CCC LLL DDD DDD RRR RRR 000 
MMMMMM =6OMMMMMM «CCC Lie DDD DDD RRR RRR 000 
MMMMMM 6 MMMMMM «(CCC tel DDD DDD RRR RRR 000 
MMM 6OUMMM OMIM «OCC LLL DDD DDD RRR RRR 000 
MMM 6OMMM OMIM «OCC LLL DDD DDD RRR RRR 000 
M~M 6 6OMMM OMIM OCC LLL DDD DDD RRR RRR 000 
Talal MMM CCC LLL DDD DDD RRRRRRRRRRRR 000 
wren MMM CCC LLi DDD DDD RRRRRRRRRRRR 000 
MMe mmm CCC LLL DDD DDD RRRRRRRRRRRR 000 
pM mmm CCC LLL DDD DDD RRR RRR 000 
fe Mae MMM CCC LLL DDD DDD RRR RRR 000 
mM MMM CCC LLL DDD DDD RRR RRR 000 
Flchd MMM CCC LLL DDD DDD R 000 
fest mMM CCC LLL DDD DDD RRR PRR 009 
Han MMM CCC LLL DDD DDD RRR RRR 000 
MoM pet CCCCCCCCCCCE «LLLLLLLLLLLLLLL DDDDDDDDDDDD RRR RRR 000 
edad rant CCCCCCCCCCCC «LLLLLLLLLLLLLLL DDDDDDDDDDDD RRR RRR 000 
MMM MMM CCCCCCCCCCCC «LLLLLLLLLLLLLLL DDDDDDDDDDDD RRR RRR oye 


SANs 
i Tans tones es Be ne 


F 
F 
F 
F 
F 
F 
F 
F 
F 


| 


**F ILE**1D**XFLOADER 


KX KX FFFFFFFFFF LL 000000 AAAAAA = DDDDDDDD-—S—s« EEEEEEEEEE RRRRRRRR 

KX KX FFFFFFFFFF LL 000000 AAAAAA  -DDDDADDD. —s- EEEEEEEEEE RRRRRRRR 

XX KX FF LL 00 00 AA AA 0D DD EE RR RR 

KX XX FF LL 00 00 AA AA DD DD EE RR RR 
KX ¥K OFF LL 00 O AA AA 0D DD EE RR RR 
KX XX FF LL 00 00 AA AA 0D DD EE RR RR 

KX FFFFFFFF © LL 00 OO AA AA DD DD EEEEEEEE  — RRRRRRRR 
KX FFFFFFFF © LL 00 00 AA AA DD DD EEEEEEEE = RRRRRRRR 

KX XX FF LL 00 00 AAAAAAAAAA 0D DD EE RR RR 
KX XX FF tL 00 00 AAAAAAAAAA DD DD EE RR RR 

KX KX FF LL 00 00 AA AA DD DD EE RR RR 

KX KX FF LL 00 OC AA AA 0D DD EE RR RR 

KX XX FF LLLLLLLLLE 000000 = AA AA DDDDDDDD = EEEEEEEEEE RR RR 

KX KX FF LLLLLLLLLL 000000 = AA AA DDDDDDDD  EEEEEEEEEE RR RR 

LL III11 SSSSSSSS 

LL III SSSSSSSS 

LL II S$ 

LL 1] SS 

LL 1] 5S 

LL 1] $$ 

LL 1] SSSSSS 

LL 11 SSSSSS 

LL 1] SS 

LL 1] SS 

LL I] SS 

LL II $5 

LLLLLLLLLL «©=sTIIII «= SSSSSSSS 

LLLLLLLLLL. §=©=sTIII = SSSSSSSS 


XF| 
voi 


-———————__------S--—-. - - 


XFLOADER 
tab e of contents 


AAA AAO 
— DONO Wy 


-—-O~e~weweywww 


~~ 
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RECLARAT TOns 

Read only data 

XFLOADER = MAIN PROGRAM 

LOAD _W ; ~ Load Microcode on a specified DR32 
RRMSG - ews error message 

GN = Assign a channel 

WCS = Read in and Format wWCS 

BOR = Convert WCS address 

ATA = Convert WCS Data 

- Fill Holes in Buffer 
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Yon ON Bose 188s 81:83:23 HAR/HRS Magee yoKeO., rae ot, 


SPARE EAE SAHA AAA AAEAAAAAARAAARAAAAREAAAAAAAAAAAAAAEREEAAAARAAAAAARAAAAEE REE 


COPYRIGHT (c) 1978 1300. 1982, 1984 B 
DIGITAL af by CORPORAT TION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERV 


THI arth $s FURNISHED UNDER 1s ae “ERE tee? MAY BE USED AND gorse 
N_ ACCORDANCE WITH THE be pF LICENSE AND WITH THE 

ION OF THE ay oot Tpit OFC Tals "sort ARE OR ANY OTHER 
THEREOF M T BE P OVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PERSON. NO rive TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


*® 
‘® 
** 
:® 
® 
ft 
: 
*® 
* 
** 
;® TRANSFERRED. 
:® 
*® 
*® 
:@ 
:® 
*® 
:* 
:® 
* 
® 


DOOQCOCCCOCoCoCoooso 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oeppokatite. " NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAi.. 


eae ee eee Ree RR ee RR RR RRS 


; 
° 
° 
° 
° 
. 
e 
oy 
° 
° 
° 
e 
° 
e 
° 
o 
e 
e 
* 
e 
e 
; LARRRRASASAAASSASLASLELALEALELESA SELES EEE SESE EE EEE EEE EES EEE EERE EE CE PRS SESE ES 
; 


SSoOSOSCOCOCOOOOOSOOOOOOSOOSOSOOOSOSOOSoOS 


CGOOOOOOOCOOOOOSOSOOOOSSSOOOCOOOOOOCOOOOOOOOOCOOOOOOOOOSCO 


Soooooooooooooo 


i FACILITY: DR32 UTILITY PROGRAMS 


Modified the microcode loader to support the. R750. 


SODWNAO UE WN OS OMIA ME WIN DS OO NIA UNE WW 9 OOD NIAU EW OOO NOUNS in 


MEPL E REESE PWWWWWIWIIinononononononononony 2 2 


COOSOODOOOOSDOOOOOOOOOOSCOD 
SSSosooooooooo SOOO OOOO OOS So Sooo Sooo So SSSoS SSS eee 


0 

0 

0 3 

0 3; ABSTRACT: 

3 THIS PROGRAM IS THE DR32 MICROCODE LOADER. 

0 : ENVIRONMENT: USER MODE 

: AUTHOR: STEVE BECKHARDT, CREATION DATE: 6=-APR-1979 

9 : MODIFIED BY: 

0 ; v03-001 KTA0102 Kerbey T. Altmann 18-Jun-1982 
3 : Add a register to save mask. 

6 : v02-003 KTA0014 Kerbey T. Altmann 15-Apr-1981 
; v02-003 SRB0006 Steve Beckhardt 23-Sep-1980 
0 : 

0 3 


Changed some code to accommodate changed IOCSFFCHAN, 
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YOscO00" DECLARATIONS "OS Eei obs Sisedics EMCCBR sReSneiepeg mans 1 


r4 ; ~SBTTL DECLARATIONS 
4 ; INCLUDE FILES: 
: : MACROS: 
60 ° 
61 SCCBDEF ; Define CCB offsets 
86 SCLIDEF 3; Define CLI values 
6 SCLIMSGDEF ; Define CLI message values 
64 SOCDEF ; Define device classes and types 
0 65 SDIBDEF 3; Define device info. block offsets 
BS $6 SUCBDEF 3; Define UCB offsets 
000 oe 3 
000 $3 : EQUATED SYMBOLS: 
00 71° 
06000490 44 i WCSSIZE = 1024 ; NUMBER OF WCS WORDS 
OOOO3FF 000 74 WCS_PADL_780 = “x200003FF ; WCS WORD TO USE FOR PADDING ON DR780 
0000000 BRS ie WCS_PADH_780 = 00 
00000000 $44 SS WCS_PADL_750 = 00000000 3; WCS WORD TO USE FOR PADDING ON DR750 
00000001 oF 78 WCS_PADH_750 = 01 
000080: 
0900 81 : OWN STORAGE: 
g000 «BS 
0000 33 es -PSECT XFDATA,LONG 
00 
000 Hi WCSFAB: SFAB DNM = <.ULD>,- ; FAB for reading in WCS 
000 38 FAC = GET,- 
be +4 FOP = $Q0 
05 91 WCSRAB: SRAB FAB = WCSFAB,- ; RAB for reading in WCS 
05 38 RAC = SEQ,- 
4 o UBF = WESLINE .= 
BaP og USZ = 1 
94 $6 ERRFAB: $FAB FAC = PUT,- ; FAB for writing error messages 
% 9 FNM = <SYSS$ERROR>,- 
94 4 FOP = <CIF,SQ0>,- 
094 9 MRS = 133,- 
94 100 ORG = SEQ,- 
94 101 RAT = CR,- 
4 : RFM = VAR 
E4 104 ERRRAB: S$RAB FAB = ERRFAB,- ; RAB for writing error messages 
E4 105 RAC = SEQ,- 
4 1 $ ROP = EOF 
ao 
1 108 


DECLARATIONS 


00000130 


80000074 


000001A6 


600001¢6 
000001C7 


00 


000024E 
0000086 


00000253 
00001400 


46 58 
00000004 
46 58 


0 
53 43 57 5 
00000007 


58 3A 4D 45 54 53 59 53 24 53 59 53 


> 


— 
FELL EOOOMOOOOOIOOOY YY YP YP 


MMM MeN COCOOD NI NINO OPO IIOA O & 


Coo°oo 


PAO RIPPIN 2 tt ot 6 = a 


ee a ae es — 8 — — Ss 9 2 ws —) “ _s 
PHRAOPAOHAOAASAOCAAAAAH 

POAAAXAE NINN UIT 
CSTOOOUNOOOOUF SPNnon—Commm 


1 
1 
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16-SEP-1984 
g-3e - 38 ERCLDR SRE XFLOADER.MAR; 1 
XFIOSB: .BLKQ 1 ; 1/0 status block 


EVBUF: .BLKB D1SSK LENGTH ; Buffer for device characteristics 
EVBUFSIZ = .-DEVBU 


D 
Dd 
MFCHAN: .BLKW 1 ; Holds channel number 

GETCMD: SCLIREQDESC RQTYPE = CLISK_GETCMD ; Get command CLI request block 
Ww 

Md 


Pp 
P 


CS_PADL: ; WCS word to use in padding 


Tage ae 


= 
— 
@ 
m 
zDD 
~" 
Pd 
a 
. 


0 ; Hibernated flag 


WCSLINE: ; Buffer to hold WCS Line. Also used 
-BLKB 134 to hold message returned by S$GETMSG. 
WCSLINESIZ = .-WCSLINE 


5 
; 
9 
; 
§ 
5 
; 
9 
Q WCSBFR: .REPT wWCSSIZE 
1 ~BLKB 5 
g 
5 
; 
9 
? 
§ 
5 
? 
} 
; 
5 


Buffer to hold —— WCS image 
: 1 WCS word = 5 byte 


CSBFRSIZ = .-WCSBFR 


FNAME: .ASCII ‘XF° ; Device name 

FCTRLR: 
* | a ; Space for controller designator 
«ASCII ‘0’ ; Unit number 

XFNAMESIZ = .=XFNAME 


WCSFILNAM: 


5 “sF* ; WCS file name 

— ; Space for controller designator 
I ‘$wcs' ; Rest of name 

= ,~WCSFILNAM 


; Default WCS file name 


c 
o 
nn 
J 
al 
cr 
— 
2 
> 
=z 
7. 


LASCIL "SYSSSYSTEM:XF* 


CPUNUM: .ASCII '780° 

»ASCII = °.ULD’ 
WCSDFLTNAMSIZ = ;-WCSDFLTNAM 
NUMDRS: .BLKB 


CPU number 


Number of DR32s loaded 


91:34:28 AX/VMS Macro v04-00 Page (3) 
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YOse000" Read only data "orSEp=1S8e Bhi2:23 HALL TRS Magee eet ar:1 PAM" 4, 


Le ea ae 


ASCII ‘No DR32s loaded.’ 
NODRSERRSIZ = .-NODRSERR 


HEXDIGITBL: ; Hexadecimal digit table 
ASCII = ‘*FEDCBA9876543210' 


61 6F 6C 20 73 32 33 52 44 20 6F 4E 
E 64 65 64 
0000010 


] ] 5 -SBTTL Read only data 
0000 ! 5 -PSECT XFCODE,LONG,NOWRT 
1 § XFNAMEDSC: 3; XF Name descriptor 
89000008, 1 -LONG XFNAMESIZ 
} ~LONG XF NAME 
90010" : 188 fanetcnatetaen enTERRSI2 ; Format error descriptor 
Sooeos8* 18s “LONG FMTERR 
1 183 NODRSERRDSC: ; No DR32s error descriptor 
$9008 19, 31 198 «LONG NODRSE®RSI7Z 
00045' 13 192 -LONG NODRSERR 
Ht 171 WCSLINEDSC: 3; WCS Line descriptor 
9999008 1 176 -LOMG WCSLINESIZ 
00001C¢8' O96 We eLGNG WCSLINE 
0 175 DEVBUFDSC: : Device char. buffer descriptor 
00000074 0020 126 -LONG DEVBUFSIZ 
00000130' ; 4 Vee -LONG DEVBUF 
6F $6 20 74 63 65 72 72 gf 63 6€ 49 00 179 FMTERR: .ASCII ‘Incorrect format in WCS file.’ 
20 53 43 57 20 6E 69 $e 4 61 60 72 0034 
E 65 6C 69 66 Bnee 
0000001D Onee FMTERRSIZ = .-FMTERR 
5 
5 
1 
5 
1 
5 
5 
5 


a Sh Sst 


socece )§«6CDpcDcDcD )§6«oDcDcDcD 


oom NOUS Wr oO 


80 
0 
0 

3 

34 35 36 37 38 39 41 42 43 44 45 $8 0 
30 31 32 33 00 

3 

00 


- DEFAULT DISPLACEMENT ,WORD 


4 er R 


XFLOADER = MAIN 


1 
1 
1 
1 
1 
1 
1 
1 


PAELLA AAAA AAA AAA AAO 


OCGOOCSCSCSCOOSOOOOCOOSOOSOSOOOOOOOSOOO 


SNAPP PU DV PU PV SUSU SUSU USUI SISAL USUSUASUASIOSIOSIASI ASIST 


SENN NAA AAA AAA AA AA AAA AAAO 


OOOCSOCSCCOOOOCOOOOoOoOSooosceo 


0070 

166D°CF 9% 

55 41 8F OA 
56 10 00 78 


BDNAMNE WN 9 OD NAN EWN HO OOD NAMU EWN SO OD NAN EW OOO NA NEW Oo ODN WP 


PRR E EEE FWD PONPONPONPONININININ) 3 2 3 3 3 OOOO DOOD OOODDOO 


SOOOSSSOSOOOOSOOOOOOSOOOSOSOOSOOSOSOSOOSOOOOOOOOO 


SOoOOooOooSoSoo 


ODmoona 


OuMWUOmMmmm 


Hiab 9 91:39:73 aires Macro v04-00 Page 


PROGRAM "gr SEP= MCLDR.SRCIXFLOADER.MAR; 1 
.SBTTL XFLOADER = MAIN PROGRAM 
FUNCTIONAL DESCRIPTION: | 


soh8 THE MAIN ENTRY P Ald TRIES TO LOAD 
° AL Lage be 8 IF If 
WITH A peas th 
BERNATE. OTHERWISE, 
COMMAND AND SHOULD RETURN. 


RO 
TER 
CA 
MMAN 


57-5 
Oo 
> 
= 


BY PROC CSTR 
TA AY A EPA 
CALLING SEQUENCE: 

CALL KFLOADER 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 


0! 

DE iuie me, E ORS 
ING 

I 

C 

R 


=<mmuwrz 


$ 
SS AN 
RUN 


Be Se Se Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Se Se Ge Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Se Se Se Se Se Se Se Se Se 


-ENTRY XFLOADER,“M<R4,R5,R6> 


SSETPRA_S XFLOADER : Specify power recovery AST 
CLRB NUMDRS ; Clear number of DR32s loaded 
MOVZBL #*A/A/,R5 3; First controller letter 
MOVL #16,R6- ; Number of controilers 

10$: ; Try to load microcode into next DR32 
BSBB LOAD wcs 
rd RO, 80$ :; If LBC, 


. 
SOBGTR R6,10$ Do next one 


exit 
; Next controller letter 


XFLOADER 16-SEP-1984 01:54:3 AX/VMS Macro V04-00 Page 6 
vou XFLOADER = MAIN PROGRAM ety 7 8 83:23 ERCLOR. SRCJXFLOADER.MAR; 1 . (4) 
166D* CF 13 8 49 TSTB NUMDRS 3; Test number of DR32s loaded 
C 0 BNEQ 40$ : agg is at least one 
Be 1 CLRL ® : DR32s - Give error message 
51 sche gf f j MOVAQ NODRSERRDSC,R1 
153 3 9 BSBW guTPUT ERRMSG 
ec ii 8 e BRB $ 3 Exit 
9A 2$ 40$: ; Determine if we were called +3 gap (as a process 
9A 2 ; without a CLI) or from a CLI o a@ power recovery AST. 
9A 3 :; If_the first case, then hibernate waiting for a power recovery 
. 23 : AST. Otherwise, return. 
O1C7"CF 95 9A 61 TSTB HIBERFLAG 3; Have we hibernated before? 
26 \¢ 09 $6 BNEQ ; Yes, this must be an AST - return 
06 Cc «=D OA 6 CMPL (AP) ,#6 3; Were we calles with 6 arguments? 
, OA 64 BNEQ ; No, retu 
08 AC OD OA 65 TSTL CLISA_UTILSERV(AP) : Is chere. 2 CLI callback routine? 
1€ 13 OQOA8 96 BEQL Fe 3; No, retu 
O1A6'CF 9F QOAA 6 PUSHAB ts : Push ederees of CLI request block 
08 Bc «601—CtséF'B boas 68 CALLS # act isa UTILSERV(AP) ; Call CLI callback routine 
00038822 8F 50 01 O00B $9 CMPL RO. #CLI$ $_INVREQTYP 3 Is it invalid request type? 
0B 12 0089 0 BNEQ 80$ : No, we were called from a CLI 
O1C7'CF 96 00BB 71 INCB HIBERFLAG 3; Yes, we were called fren. PROCSTRT, 
Boer 8 SHIBER_S ; set flag and hibernate 
50 00° 3C 00¢6 she 80$: MOVZWL S“*#SSS$_NORMAL ,RO 
04 00C9 75 RET 3: and exit 


| 
ed 


XFLOADER 16-SEP-1984 01:54:3 AX/VMS Macro v04-00 Page 7 
¥0%-000 LOAD_WCS = Load Microcode on a specified gro E En obec 8:34:23 EMCLDR SRE XFLOADER.MAR; 1 (5) 
‘3 44 ia -SBTTL LOAD _WCS = Load Microcode on a specified DR32 
cA 8 ; FUNCTIONAL DESCRIPTION: 
CA ° : This routine loads microcode into a specified DR32. It assigns 
CA § : a channel to the DR, opens the microcode file, and loads 
eA Z : the DR. 
OCA 5 $ CALLING SEQUENCE: 
Och ; : BSBW  — LOAD_WCS 
Och 5 } INPUT PARAMETERS: 
OCA $31 : RS Controller Letter 
OCA $8 : IMPLICIT INPUTS: 
dOca 3 : None 
OCA $7 : OUTPUT PARAMETERS: 
OOCA 299: RO 0 = Exit 
Boch , 3 1 = Continue 
OCA 6 : IMPLICIT OUTPUTS: 
454 be : NUMDRS is incremented if microcode is loaded successfully 
OOCA 06 : COMPLETION CODES: 
OOCA 07 ; 
aeee 88 $ None 
0 cA 10 : SIDE EFFECTS: 
OOCA \ : Errors are written to the file SYSSERROR 
Tn 
OOCA 15 LOAD_WCS: 
1654°CF 55 90 455 1 MOVB R5,WCS_FNM_CTRLR ; Store controller letter in WCS Hy 
3 e name 
1650°CF 55 90 4 18 MOVB RS,XFCTRLR 3; Store controller letter in DR name 
D4 Y 3; Assign a channel to the DR. This is done with an internal FA 
D4 ; procedure instead of SASSIGN_S so that we can ocete a channel FA 
0D4 § ; even if another process has 3 channel assigned or if the DR FA 
+ z 3; is allocated. 4 
01A4°CF 7 D4 5 PUSHAW XFCHAN 3; Address of channel number FA 
FF24 CF F 08 § PUSHAQ XFNAMEDSC ; Address of device name desc. Fl 
ge DD oc PUSHL #2 3; Number of arguments FR 
50 —E 00 Of 8 MOVL SP,RO ; Pointer to argument List FR 
E 9 SCMKRNL_S ASSIGN, (RO) 3; Assign the channel FR 
5E £8 cf 0 ADDL #12 3; Adjust stack GE 
11 6 E F 1 BLBS RO. f $ ; Successful assignment HE 
0000° 8F +? F4 $ CMPW RO,#SS$_NOSUCHDEV 3; No such device error? H] 
04 2 F9 BNEQ 5$ 3; No, error Ic 


] 
N 13 


XFLOADER 16-SEP-19 1:54:39 VAX/VMS Macro v04-00 Page 
yOs-008 LOAD_WCS = Load Microcode on a specified ets 7 te 34 742 CMCLDR.SRCJXFLOADER.MAR; 1 ’ &) 
50 01 0 FB 4 MOVL #1,R0 ; Yes, continue 
4 5 RSB 
005? 30 FF ; 5$ BSBW SYTPUT PRANSS ; Give error message 
0 04 102 8 CLRL R 3; Exit 
05 ! ¢ ib RSB 
105 41 10$: 3 epee WCS file by opening a file whose logical name is 
: 5 4 3; XFcSWCS where ‘c’ is the controller letter. 
OO2C'CF 1652°CF 9E 198 44 MOVAB WCSFILNAM,WCSFAB+FABSL_FNA 3; Store file name 
0034'CF O07 90 010C 45 MOVB #UCSFILNAMSIZ, WCSFAB+FABSB_FNS ; Store file name size 
111 23 SOPEN FAB = WCSFAB 
61 50 €8 We rt BLBS RC,208 3; Success 
ee 49 ; That didn't work so open a default WCS file. 
O11F 50 ; However, the default file name (as well as the wCS eg word) 
O11F 51 : is dependent gn what type of DR32 we have. Currently, th 
pie 2 3; DR780 and DR750 are supported. 
667'CF 38 90 O11F 354 MOVB = #*A°8" ,CPUNUM+1 ; Assume DR780 - set number in default 
01C2°CF 1200008 8F DO 0124 55 MOVL #uCcs _PADL “i wes atte ; file name and also set WCS padding word 
O1cC6'CF 00 90 012d 2$ MOVB #ucs =PADH, “780,WCS_PADH 
01 5 $GETCHN_S BUF = BEVBUFDSC,~ 3 Get device info 
013 58 ht. = XFCHA 
30 50 E9 014 59 BLBC 3; Error 
02 91 0148 60 CMPB #oT$ DR780,- 3; Check device type to see if we have 
0135'°CF 8138 61 D1BSB_ DEVTYPE+DEVBUF : A DR780 
OF 13° 015 6¢ BEQL 3 We have a DR780 
1667'CF 5 90 015 6 MOVB #*A'S* ,CPUNUM 3 We have a DR750 - set number in default 
O1c2°cF 00 D0 015 64 MOVL  #WCS_PADL either: WCS_PADL : file mame and also set WCS padding word 
01C6'CF 01 90 Bt 26 9? 128 MOVB #wcs “PADH -750,W wcs “PADH 
OO02C "CF 1659°CF 9E oie} 67 : MOVAB WCSDFLTNAM,WCSFAB+FABSL_FNA : Store default file name 
0034'CF 14 90 0168 68 Ove #WCSDFLTNAMSIZ, WCSFAB+FABSB_FNS ; Store default file name size 
0160 69 SOPEN FAB = WCSFAB 
05 50 =o«éE8 gize oy 158 BLBS RO,20$ ; Opened successfully 
006D 30 OB % : BSBW SUTPUT ERRASS :; Error - output error message 
58 si pier if BRB 70$ : Deassign channel 
6180 75 20$: SCONNECT RAB = WCSRAB 
40 50 +€9 OI a BLBC RO,50$ 3 Error 
a : 4. 3; Now read in (and format) wCS 
0287'cCF OO FB O18 0 CALLS #0,READ_WCS 
38 50S s«éE 3132 1 BLBC RO,50$ ~ 3; Error 
i § ; Issue Q10 to actually load the microcode 
196 385 $a10w_s FUNC = #108, LOADMCODE..~ | 
B13e § CHAN = XFCHAN,=- 
196 10SB = XFIOSB.- 
196 8 Pl = WCSBFR,- 
196 P2 = MWCSBFRSIZ | 
0—E 50 €9 018D 0 BLBC RO,50$ ; Error | 


se 


3 


1 
LOAD_WCS = Load Microcode on a specified : 


: 


10 


~SOo Ww 
oo oO 
wn 


ee a ee ed ed ae dd ded 
PM 
oe oe 


MMM VVIOMOOOOO 


SH PAANAAAAAIS 


Coowuowowowowowowoono 


SP NNDWOOMMODWuo 


NR—OOONOULSwinro— 


B 14 


MOVZWL KF 1958 .RO 
BCs RO 
INCB NURDRS 
B 60$ 
BSBB = OUTPUT_ERRMSG 


SCLOSE FAB = WCSFAB 
SDASSGN_S XF CHAN 


MOVL #1,R0 
RSB 


Pa1984 01:53:42 EACLDRSSRIRFLOADER-MAR: 1 


; Get 1/0 status block 
Error 
; Increment # cf DRs loaded 


; Output error message 


; Close file 
; Deassign channel 


; Continue 


re 


OUTPUT_ERRMSG - 


Foe oe at ot ot ot ot ot ot ot ot ot ot ot tt a 


IAPIPOPOPOPONOPONOPON 2 2 2 2 2 SS 2 OO 


S22eee 
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Output error message “SEP-19 
0 -SBTTL OUTPUT_ERRMSG = Output error message 
; FUNCTIONAL DESCRIPTION: 

This routine outputs error messages to SYSSERROR. 
CALLING SEQUENCE: 

BSBW OUTPUT_ERRMSG 
INPUT PARAMETERS: 

RO 0 or VMS completion code 


IMPLICIT INPUTS: 
None 
OUTPUT PARAMETERS: 
None 
IMPLICIT OUTPUTS: 
None 
COMPLETION CODES: 
None 
SIDE EFFECTS: 
R2 is not preserved 


Be Se Se Se Se Se Ge Se Te Ge Se Ge Se Se Bs Bs Be Ge Se Te Se Se Se Se Sse Se Se Se Ge Ge Se Se Se 


OUTPUT_ERRMSG: 
MOVAB 


0 ERRRAB,R2 ; Put address of RAB in R2 
TSTL RO ; Have VMS completion status? 
BNEQ 10$ : Yes 
MOVW (R1) ,RABSW_RSZ(R2) ; No, move size of message into RAB 
MOVL 4(R1) ,RABSC_RBF (R2) ; Move address of message into RAB 
BRB 20$ 
10$: ; Have VMS completion status in RO. Get corresponding message. 
SGETMSG_S MSGID = RO,- 
MSGLEN = RABSW_RSZ(R2),- 
BUFADR = West IREDSC 
MOVAB WCSLINE,RABSL_RBF(R2) ; Store address of buffer in RAB 
208: ; Create output file or just open it if it already exists. 
; Output message and close file. 
SCREATE FAB = ERRFAB 
BLBC RO,60$ : Error 
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R1 If RO = 0, then R1 contains address of error message descriptor 


D 14 
verti OUTPUT_ERRMSG = Output error message "97$Fb=1 382 8:24:23 YACLOR SRE KPLOADER MAR: 1 Sn (6) 


f : i8¢ SCONNECT RAB = (R2) 
c ¢ $PUT RAB = (R2) 
4 § SCLOSE FAB = ERRFAB 
bh rh 
05 44 468 60$ RSB 
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¥os-000 ASSIGN = Assign a channel 736-1382 $y :24:23 UMCLDR SRO XFLOADER MAR; 1 " (3) 
on -SBTTL ASSIGN = Assign a channel 
FUNCTIONAL DESCRIPTION: 

This routine assigns a channel to a device. It is functionally 

a subset of the SASSIGN system service. It is used here 

instead of the SASSIGN system service for the following 

reason: The DR32 is a non-shareable device. Therefore, if 

a process is using a DR32 and a power failure occurs, a normal 

SASSIGN would fail since another process would have a channel 

nat d. In other words, we would be unable to reload microcode 

on OR32s that were in use at the Sige of a power failure. 

This ASSIGN, on the other none will work. Note that if we 

try to load microcode on a DR 8 in the middle of a data 
transfer, the load microcode will fail and the data transfer 
will continue. 
; CALLING SEQUENCE: 

CALLS/G ASSIGN (in KERNEL mode) 

INPUT PARAMETERS: 


4(AP) Address of device name string descriptor 
8(AP) Address to store assigned channel number 


IMPLICIT INPUTS: 
None 
OUTPUT PARAMETERS: 
RO Completion code 
IMPLICIT OUTPUTS: 
None 
COMPLETION CODES: 
SS$_IVDEVNAM Invalid device name 
SS$_NOIOCHAN No 1/0 channel is available for assignment 
SS$_NOSUCHDEV No such device on this system 
SIDE EFFECTS: 


POPOIPOIPIPOPOPIPIPPINIPIMPUPIMINIPNIPININININIPYD 


ES SS SS SS SS SS SS 
oo ot ot ot ot at at a ere eee eee 


OO OCOODOOOOWOOWOOO NNN 


PWN 9 ODNAU EWN OOD NOU EW 


eee 
oou0n7 
CON W 


Be Se Se Se Ge Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Bs Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Se Be Ge Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Sete 


None 
0198 ENTRY ASSIGN, “M<R3,R4,R7,R8> 
54 60000000 ° GF DO MOVL G*SCHSGL_CURPCB,R4 ; Get current PCB 
eocneeey't 18 JSB G* 1OCSFF CHAN : Find free 1/0 channel 
01 50 f BLBS RO,10$ ; Have one 
4 RET : No free 1/0 channel 


SoS EET SDV LIV LVI IUSUSUSUSUSUSU SUSU SUSU SUSUSIUSUASU SUSU ASUS SUSU STASIS ASIST ASI ASIASIOSIASI ASIST 
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wie a a or or ot ot ot ot ot a ot ot ot et et et et et et et et et, et et et et > 
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ASSIGN = Assign a channel 


m=O 


the assignment 
ce atthe 
yore at AMOD (R8) 
R H (AP 
#S5$_NORMAL RO 
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¢ 
1/0 database for write access 
ddress of device name desc. 

h ier device 

t find it 


; Store UCB address in CCB 


Incr. UCB reference count 


; Store access mode 
; Store assigned channel number 
; Success status 


; Unlock I/0 data base and return 


hannel index and CCB address “ 
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READ_WCS = Read in and Format wCS Breeer1o8e By ishice PACLYRS Magee, yOReOO ks, Page | 


on .SBTTL READ_WCS = Read in and Format wCS 
: FUNCTIONAL DESCRIPTION: 


This routine reads in and formats ng WCS. The input Line 
is in the format produced by MICRO2: 


Caddrj=value 

E.g. C2103=30F F12A800 (Note 40 bit WCS word) 
CALLING SEQUENCE: 

CALLS/G READ_WCS 
INPUT PARAMETERS: 

None 
IMPLICIT INPUTS: 

The WCS is stored in WCSBFR 
OUTPUT PARAMETERS: 


FUFVSUSUSUSUSUSUSVOSTOS VSS VOSS VOSS IOS IOSIOSIOS 


SDP AAPA AA ADA MMIII 


Oooo 
POPOPOPIPIPININIPIPOPIPIPOPOPIPUNYIPYIPPOPOPININININYD 


‘G9 Cd CD CD CD CD GD Gd Cd C9 C9 CD CD C9 C9 CO GD. CD 09 CD. GD CD. CD CO.QD0D 


RO Completion code or 0. If 0 then R1 contains descriptor 
to error message 


IMPLICIT OUTPUTS: 
None 
COMPLETION CODES: 
The ones returned by $GET 
SIDE EFFECTS: 
| 
| 


Bete Se Ge Ge Se Se Fe Ge Ge Ge Ge Se Sse Ge Be Se Se Ge Be Se Ge Ge Ge Sse Ge Se Se Se Se Se Se Se Se Se Se Se 


SOOOOM™M OO NSS 


~O OO 0000009 09 09 0d Cd 0D Cd Cd Cd Cd Cd CD OD CD 0D G9 CD CD 


None 
READ_WCS: 
OOFC eWORD “M<R2,R3,R4,R5,R6,R7> 
52 O246E'CF 9 MOVAB UESOFR.R2 ; Address of WCS buffer 
53 D4 CLRL & ; WCS word # 
10$: 3 Get next Line from WCS file 
$GET RAB = WCSRAB 
00000000 ' 8F 0 O01 CMPL RO, #RMSS$_EOF 3: End of file? 
Sa BEQL 3 Yes 
40 50 +€9 BLBC RO,80$ 3; No, other error 


; Get size of Line read, zero byte after end of Line. 
MOVZWL WCSRAB+RABSW_RSZ,R5 ; Get size of Line read 


SOooOCOCOCOOCOCOOCOCOCO OOOO OOOOOCOOOOOOOOOCOOCOOOOOOOOOO 
DUPVDVLVIVLVLDVIVIVLVIVLVSVLIVSULVIVSIVIUSUSLVSUSUSUSVSUSISTSIST SISTA 
DOOON AUN EWN OOOO NA MEW OS OO NAMEN OOD NO UE WWD OO NOU WIP OWONOUS 


DWDOOOOOO OO OW OOOOH NNN NNN 
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Fees 
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sist 


54 = 01C8"CE 
6445 
3B 64 
07 
5B 8F 
2 
53 5 
04 
68 
2 
57 02 
35 
565 
57 (08 
35 
§¢ 5 
8 29 
5 
AF 
53 
10 
55 0400 8F 
5355 
02 
4B 
50 =©00" 
51 FDOF CF 
50 


3 
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2 tO OD 
ouw—on— 


-—oo°o-c°0°0-"" 
—AOOCOCOOOoOoO 


—-90W9 
OW 


o Vv 
* oO 


7E 
04 


SOOoOOCOCOCOCOOCOCOCOCOCGOOOOCOOOOSOOOOOCOOCOOOoO 
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READ_WCS = Read in and Format WCS 


30$: 


70$: 


75$: 
80$: 


ERPOR: 
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MOVAB WESL INE ARS ; Get address of Line 


CLRB (R4) ; Zero byte at end 

; If first character on Line is ';" then ignore this Line. 
CMPB (RG) ,#*A/;/ s is 1¢ *3°? 

BEQL 10$ 3; Yes, get next Line 


:; If first character on Line is not 'C" then there is no more 
; WCS in file. 


CMPB (R4)+,#*A/C/ Compare it 


BNEQ ; It's not ‘'C* 

BSBB Sy TAROR 3 It is. Convert address (in R5) 
CMPL R5,R 3; Compare this address with Last+1 
BEQL 30§ 3; Have sequential addresses 

BLSS ERROR ; Addresses went backwards 

BSBB FILL ; Have a hole - fill it 


; Convert the data in two parts: first 1 byte and then 4 bytes. 


MOVL #2,R ; Number of digits to convert 
BSBB CVTDATA 3; Convert data - returns in R 
MOVL R5,R 3 Save 

MOVL #8,R7 3; Number of digits to convert 
BSBB CVTDATA ; Returns data in R5 

MOVL R5,(R2)+ ; Store data in buffer 

MOVB agesnes* 3; Rest of WCS word 

INCL R 3; Inc. WCS word counter 

BRB 10$ 3; Repeat 

; No more data in file 

TSTL) = RB ; Make sure we got at least 1 word 
BEQL ERROR 3; We didn't 

MOVZWL ay gale Re 3; Number of words of WCS required 
CMPL RS,R ; Have enough? 

BEQL 75$ : Yes 

BSBB FILL 3 No, fill buffer to end 

MOVL S“#SS$_NORMAL ,RO ; Success 

RET 


; Come here for errors involving format of WCS file. 


MOVAQ FMTERRDSC,R1 ; Get address of error msg. descriptor 
CLRL RO R1 


3; Indicates descriptor is in 
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On On CVTADDR = Convert WCS address ~$eP = 1388 8} 34:2 42 CMCLOR.SRCIXFLOADER.MAR;1 ° (8) 


4 § = -SBTTL CVTADOR = Convert WCS address 
FD 6 : FUNCTIONAL DESCRIPTION: 
FD 6 : : This routine converts the WCS address to at tha Jed routine 
FD «66 § : converts until a non-hex digit is found. At that poi 
FD 657 ; the next two characters must be 'J='. If they're net, then it's 
FD 228 § a WCS format error. 
FD ; 
FD 660 ; CALLING SEQUENCE: 
FD 661 ; 
FD 966 $ BSBW CVTADDRE 
FD 65 ; 
4 eee ; INPUT PARAMETERS: 
8 4 oe : RG Address of first byte of WCS address to convert 
FD 66 > IMPLICIT INPUTS: 
FD 670: None 
8 FD 671; 
FD ore ; OUTPUT PARAMETERS: 
8 FD 673; 
FD «674; RS WCS Address 
FD 675; 
FD 676 3; IMPLICIT OUTPUTS: 
Oe SrB N 
3 one 
FD 679; 
FD 680 ; COMPLETION CODES: 
ee a N 
; one 
8 FD «66 § 3 
4 ? : 3; SIDE EFFECTS: { 
0 4 e $ : Errors are handled by branching to ERROR 
O2FD és > 
FD 6 § CVTADDR: 
55 4 FD 690 CLARL RS ; Will contain address 
FD50 CF 10 84 A FF 691 10$: LOCC (R4)+,#16,HEXDIGITBL : Locate char. in hex digit table 
98 3 ; $36 BEQL 208 i Not a hex digit 
3 69 DECL. RO ; Subtract one to get true value 
55 22 9 8 9 694 ASHL #4,R5,R5 : Bul tiply address so far by 16 
e> $1. 889 636 Bree C8 iim 
12 69 , 
: 028 20$: ; Have a non-hex digit. Make sure it and next char. are ‘J=". os 
4 07 1 3 0 DECL RG ; Back up 1 byt 
305D 8F 4 2 14 701 CMPW (R4)+,#*A/J=/ : Right Fearat tere 
DA c + i g BNEQ ERROR ; No 
18 f : 3; Make sure address is within size of wWCS. 
00000400 8F 55 O01 1 CMPL R5,#WCSSIZE 
D1 = «18 3 : 5 BGEG ERROR ; Too large 
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CVTADDR = Convert WCS address SEP-1984 MCLOR.SRCJXFLOADER.MAR; 1 (9) 


0S 0324 708 RSB 


CVTDATA = Convert 
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-SBTTL CVTDATA = Convert WCS Data 


p++ 
; FUNCTIONAL DESCRIPTION: 


This routine converts a specified number of hexadecimal bytes 
to binary. 


CALLING SEQUENCE: 
BSBwW CVTDATA 
INPUT PARAMETERS: 


RG Address of eeeene to convert 
R7 Number of bytes to convert 


IMPLiCIT INPUTS: 
None 
OUTPUT PARAMETERS: 
R5 Converted WCS data 
IMPLICIT OUTPUTS: 
None 
COMPLETION CODES: 
None 
SIDE EFFECTS: 
Errors are handled by branching to ERROR. 


5 ; Will hold result : 

R4)+, #16, HEXDIGITBL ; Locate char. in hex digit table 
RROR ; Not a hex digit. 

DECL RO ; Subtract one to get true value 
ASHL #4 ,R5,R5 ; Multiply number so far by 16 

A RO,R ; Add in nect character 

sapere R7,10$ ; Repeat 
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FILL = Fill Holes in Buffer 


| 
| 
: 736 “a -SBTTL FILL = Fill Holes in Buffer 
: 4 5 3 FUNCTIONAL DESCRIPTION: 
D4 | 
¢ re) ; This routine is called to fill holes in the WCS image with 
C 166 ; a default WCS word. This is necessary because the addresses 
: te7 3 in the WCS file are not necessarily sequential. 
; £0 3; CALLING SEQUENCE: 
: 38 3 BSBW FILL | 
: 789 3: INPUT ARGUMENTS: 
033C 771; R Address of next location in WCS buffer 
C ak 3 R Current WCS address 
. . sees R5 WCS address to fill to 
33¢ 774 | 
; C 775 ; IMPLICIT iNPUTS: 
C £76 : 
033C 777; None 
033C 78 : 
033C 779 ; OUTPUT ARGUMENTS: 
033C 780; 
033C 781; None 
033C «67 ¢ 3 
033C 783 ; IMPLICIT OUTPUTS: 
033C A 3 
033C 785; None 
033C¢ res 3 
033C 7 3; COMPLETION CODES: 
033C 788; 
033C 789; None 
033C 790; 
83 C 791 ; SIDE EFFECTS: 
033C 792; 
033C 793; None 
eas 
82 O1C2°CF 00 3C 796 FILL: MOVL WCS_PADL, (R2)+ ; Store low 4 bytes 
82 01C6°CF 90 41 79 MOVB WCS_PADH, (R2)+ 3; Store high byte 
F253 =55 fs 46 798 AOBLSS R5,R3,FILL 3; Repeat 
0 4A 799 RSB | 
eB | 
4B 1 
+08 80 
0348 80 END XFLOADER 
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Symbol table 


DEVBUF DSC 
DEVBUF S1Z 
DIBSB_DEVTYPE 


“LENGTH 
Drs DRYBO 
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RM F 
SCHSGL_CURPCB 
SCHSIOCOCKW 


SYS$Q10W 
SYSSSETPRA 
UCBSW_REFC 
WCSBFR 
WCSBFRSIZ 
WCSDFLTNAM 
WCSDFLTNAMSIZ 
WCSFA 


WCSRAB 
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RERRRAEE 
REARRREE 


0000005C 


~ 


NROSOOOOOCOCOOOOOOoOoOOoOSooO 
COOoOoooooooooooooococoo 
COOoOooooooooooooooooo 
SOOOooooooooooooooooo 
OQOOoooOo—-Soooooo—-oo——o 
WS—90— A fF OSCO- SACO fr 
NOOMDOMMOM100—" MOulo— 


NOM -ALOOS WOO WV SOOM 


<x 


pa 


N 14 
XFLOADER 16-SEP-1984 01:54:39 VAX/VMS Macro v04-00 Pa 
Symbol table 873 b=|98c 1 :8$iae MCLDR.SRCJXFLOADER.MAR; 1 “ HH 


XF CHAN 9146 R ; 
XFCTRLR 650 R 
XF 10SB 4 : R 
XF LOADER 065 RG 4 
XF NAME 001 5 R 2 
XFNAMEDSC 0 8 8 R 04 
XFNAMESIZ = 000 4 

ane caaaeewnan + 

: ;_Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. 00000000 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS Q0000000 ¢ -) O1¢ #1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
XFDATA QOO00166E ( 5742.) 8 ( ¢°} NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC LONG 
SRMSNAM 444 94 ( 13.) O35 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
XF CODE 00000348 ( 843.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 

Queuwsnness seeuceesesusus 
! Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 16 00: 09:00. 18 00:00:00.99 
Sypbewee. Lag HBT 8888s 8 
Syabol table sort 0 00:00:01-31 00:00:03.60 
Pas 216 00:00:03.96 00:00:08.68 
Symbol table output 18 i Se 00:00:00.31 
Psect synopsis output 5 00:00:00.03 00:00:00.03 
Cross-reference output 0 Bp 98-08 Op +88 708-09 
Assembler run totals 816 00:00:23.80 00:00:52.32 


The working set Limit was 900 pages. 

112861 bytes (221 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table 4tece allocated to hold 1296 non-local and 24 local symbols. 
source Lines were read in Pass 1, producing 3° object records in Pass 2 

46 pages of virtual memory were used to define 39 macros. 


$eoeweeceeoowececccecccceon+ 


Macro Library name Macros defined 
-$255$0UA28: CSYS.OBJJLIB.MLB; 1 2 
“$255$DUA28: (SYSLIBJSTARLET.MLB;2 4 

TOTALS (all Libraries) 6 


1648 GETS were required to define 36 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:XFLOADER/OBJ=OBJ$:XFLOADER MSRC$:XFLOADER/UPDATE=(ENHS$: XFLOADER) +EXECMLS$/LIB 
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